home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5930.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  37 lines
  1. 5 GOTO10010
  2. 10 DATAUniformly accelerated motion,"v=vß+at , a=v/t , s=vßt+atý/2",10,20,
  3. 20 DATANewton's equation of motion,F=ma,10,30,
  4. 30 DATACircular motion,T=2ãr/v=2ã/“=1/f,20,40,
  5. 40 DATACircular motion,"“=2ã/T=2ãf=v/r , F=mr“ý=mvý/r",30,50,
  6. 50 DATASimple harmonic oscillation,"x=r¥sin“t , v=r“¥cos“t , a=-“ýx",40,60,
  7. 60 DATAHooke's law,F=-kx,50,70,
  8. 70 DATASpring,"a=F/m=-k/m¥x , T=2ãû(m/k)",60,80,
  9. 80 DATASimple pendulum,"a=F/m=-g/l¥x , T=2ãû(l/g)",70,90,
  10. 90 DATAPotential energy,Ep=mgh,80,100,
  11. 100 DATAElastic energy   (spring),Ee=1/2¥kxý,90,110,
  12. 110 DATAKinetic energy,Ek=1/2¥mvý,100,120,
  13. 120 DATACoefficient of friction,F=æN,110,130,
  14. 130 DATAWork,W=Fs,120,140,
  15. 140 DATAKepler's law (3'rd),Tý/rþ=Constant,130,150,
  16. 150 DATAUniversal gravitation,"F=G¥Mm/rý , G=6.7*10ïÇ[N¥mý/kgý]",140,160,
  17. 160 DATAPotential energy   (planet),Up=-G¥Mm/r ,150,170,
  18. 170 DATAKinetic energy   (planet),Ek=1/2¥mrý“ý,160,180,
  19. 180 DATAMoment of inertia,"I=mrý , E=1/2¥I“ý",170,190,
  20. 190 DATAAngular momentum,J=I“,180,200,
  21. 200 DATAConservation of momentum,mvÆ+MVÆ=mv’+MV’,190,200,
  22. 10010 MODE8:DIM:x=10:y=200:r=x
  23. 10020 DEFCHR$(255)="202048F808"
  24. 10030 DEFCHR$(254)="3E020C223E"
  25. 10040 DEFCHR$(253)="2E2A3A0000"
  26. 10050 DEFCHR$(252)="123E020000"
  27. 10110 RESTORE(r)
  28. 10120 CLS:READm$,n$,b,c,d
  29. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  30. 10140 PRINTm$;TAB(l);l$;n$;:LOCATE0,0:LOCATE1,1
  31. 10150 z=ASC(INPUT$(1,@))
  32. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  33. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  34. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  35. 10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
  36. 10280 GOTO10150
  37.